home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / FredFish PD 308.adf / FReq / Examples / Extract_ZOO < prev    next >
Text File  |  1990-01-18  |  789b  |  39 lines
  1. /* Extract_Zoo  (Arexx) - uses the ZOO command to extract Zoo'ed files */
  2.  
  3. /* ** Note **  This program assumes that you have the 'ZOO' program located
  4.                in your SYS:C directory */
  5.  
  6.  
  7. if ~(Show('P', 'FileRequester')) then
  8.     do
  9.     ADDRESS COMMAND "Run >NIL: DEVS:Freq"
  10.     ADDRESS COMMAND "WaitForPort FileRequester"
  11.     if ~(Show('P', 'FileRequester')) then
  12.         do
  13.         say "UnAble to Load FileRequester"
  14.         exit
  15.         end
  16.     end
  17.  
  18. OPTIONS RESULTS
  19. ADDRESS "FileRequester"
  20. 'SetPattern'
  21. 'SetFileName'
  22. more = "TRUE"
  23. do while more = "TRUE"
  24.     'SetTitle Select a ZOO File to Extract'
  25.     'DisplayDef'
  26.     'GETFILENAME'
  27.     if (RC = 0) then
  28.         do
  29.         say "ZOO Extracting File: " Result
  30.         ADDRESS COMMAND "SYS:C/ZOO x//" '"' || Result || '"'
  31.         end
  32.     else
  33.         do
  34.         more = "FALSE"
  35.         say 'Operation Canceled'
  36.         end
  37.     end
  38. exit 0
  39.